Visual Basic Toolbox/Visual Basic Toolbox (P.I.E.)(1996).ISO/forms/frmwiz/chngfld.frm

Text File | 1995-01-28 | 5KB | 227 lines

VERSION 2.00
Begin Form ChngFld
HelpContextID = 36
BackColor       =   &H00C0C0C0&
BorderStyle     =   3  'Fixed Double
Caption         =   "Field Attributes"
ClientHeight    =   2385
ClientLeft      =   3120
ClientTop       =   2565
ClientWidth     =   4095
ControlBox      =   0   'False
Height          =   2790
Left            =   3060
LinkTopic       =   "Form1"
MaxButton       =   0   'False
MinButton       =   0   'False
ScaleHeight     =   2385
ScaleWidth      =   4095
Top             =   2220
Width           =   4215
Begin SSCommand BtnCancel
HelpContextID = 24
AutoSize        =   2  'Adjust Button Size To Picture
Caption         =   "&Cancel"
Font3D          =   2  'Raised w/heavy shading
Height          =   615
Left            =   1560
Picture         =   CHNGFLD.FRX:0000
TabIndex        =   9
Tag             =   "Cancel building the form"
Top             =   1320
Width           =   915
End
Begin SSCommand BtnOK
HelpContextID = 37
AutoSize        =   2  'Adjust Button Size To Picture
Caption         =   "&OK"
Font3D          =   2  'Raised w/heavy shading
Height          =   615
Left            =   660
Picture         =   CHNGFLD.FRX:0302
TabIndex        =   8
Tag             =   "Generate the form code"
Top             =   1320
Width           =   915
End
Begin SSCommand BtnHelp
Caption         =   "&Help"
Font3D          =   2  'Raised w/heavy shading
Height          =   615
Left            =   2460
Picture         =   CHNGFLD.FRX:0604
TabIndex        =   7
Top             =   1320
Width           =   915
End
Begin SSPanel cMsg
Align           =   2  'Align Bottom
Alignment       =   1  'Left Justify - MIDDLE
BevelInner      =   1  'Inset
BorderWidth     =   2
ForeColor       =   &H00FF0000&
Height          =   375
Left            =   0
TabIndex        =   5
Top             =   2010
Width           =   4095
End
Begin SSCheck ChkSameLine
HelpContextID = 38
Caption         =   "Put On Same Line As Previous Field"
Height          =   255
Left            =   120
TabIndex        =   1
Tag             =   "Place field on the same line as previous field"
Top             =   960
Width           =   3675
End
Begin TextBox TxtLabel
HelpContextID = 39
BackColor       =   &H00C0C0C0&
Height          =   315
Left            =   1140
TabIndex        =   0
Tag             =   "Label to use on the form for the field"
Text            =   "Field Name"
Top             =   540
Width           =   2655
End
Begin SSPanel LblField
HelpContextID = 40
Alignment       =   1  'Left Justify - MIDDLE
BevelInner      =   2  'Raised
BevelOuter      =   0  'None
BorderWidth     =   2
Caption         =   "Field Name"
Height          =   315
Left            =   1140
TabIndex        =   3
Top             =   120
Width           =   2655
End
Begin Label LblRow
BackColor       =   &H00FFFF80&
Caption         =   "LblRow"
Height          =   315
Left            =   120
TabIndex        =   6
Top             =   1380
Visible         =   0   'False
Width           =   495
End
Begin Label Label1
AutoSize        =   -1  'True
BackColor       =   &H00C0C0C0&
Caption         =   "Field Label"
ForeColor       =   &H00FF0000&
Height          =   195
Index           =   1
Left            =   120
TabIndex        =   4
Top             =   600
Width           =   945
End
Begin Label Label1
AutoSize        =   -1  'True
BackColor       =   &H00C0C0C0&
Caption         =   "Field Name"
ForeColor       =   &H00FF0000&
Height          =   195
Index           =   0
Left            =   120
TabIndex        =   2
Top             =   180
Width           =   960
End
End
Option Explicit

Sub BtnCancel_Click ()
    Unload ChngFld

End Sub

Sub BtnCancel_GotFocus ()
    cMsg.Caption = BtnCancel.Tag

End Sub

Sub BtnCancel_LostFocus ()
    cMsg.Caption = ""

End Sub

Sub BtnHelp_Click ()
    SendKeys "{F1}"

End Sub

Sub BtnOK_Click ()
    Dim irow As Integer
    irow = Val(LblRow.Caption)
    DataForm.GrdFields.Row = irow
    DataForm.GrdFields.Col = 1
    DataForm.GrdFields.Text = TxtLabel.Text
    DataForm.GrdFields.Col = 2
    If ChkSameLine.Value = True Then
        DataForm.GrdFields.Text = "Yes"
    Else
        DataForm.GrdFields.Text = "No"
    End If
    Unload ChngFld

End Sub

Sub BtnOK_GotFocus ()
    cMsg.Caption = BtnOK.Tag

End Sub

Sub BtnOK_LostFocus ()
    cMsg.Caption = ""

End Sub

Sub ChkSameLine_GotFocus ()
    cMsg.Caption = ChkSameLine.Tag

End Sub

Sub ChkSameLine_LostFocus ()
    cMsg.Caption = ""

End Sub

Sub FldGotFocus (PControl As Control)
    PControl.BackColor = BLUE
    PControl.ForeColor = WHITE
    PControl.SelStart = 0
    PControl.SelLength = 1000
    cMsg.Caption = PControl.Tag

End Sub

Sub FldLostFocus (PControl As Control)
    PControl.BackColor = RB_GRAY
    PControl.ForeColor = BLACK
    cMsg.Caption = ""

End Sub

Sub Form_Paint ()
    Form3d Me

End Sub

Sub TxtLabel_GotFocus ()
    FldGotFocus TxtLabel

End Sub

Sub TxtLabel_LostFocus ()
    FldLostFocus TxtLabel

End Sub